home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / icont.sit / gdefs.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-19  |  9.2 KB  |  199 lines  |  [TEXT/MPS ]
  1. extern int fncargs[];
  2. int idflag;
  3. int id_cnt;
  4. int key_num;
  5.  
  6. #define EmptyNode tree1(N_Empty) 
  7.  
  8. #define Alt(x1,x2,x3)        $$ = tree4(N_Alt,x2,x1,x3) 
  9. #define Apply(x1,x2,x3)        $$ = tree4(N_Apply,x2,x1,x3) 
  10. #define Arglist1()        id_cnt = 0
  11. #define Arglist2(x)        /* empty */
  12. #define Arglist3(x,y,z)        id_cnt = -id_cnt
  13. #define Array(x1,x2,x3,x4)    $$ = buildarray(x1,x2,x3,x4)
  14. #define Bact(x1,x2,x3)        $$ = tree5(N_Activat,x2,x2,x3,x1) 
  15. #define Bamper(x1,x2,x3)    $$ = tree5(N_Conj,x2,x2,x1,x3) 
  16. #define Bassgn(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3) 
  17. #define Baugact(x1,x2,x3)    $$ = tree5(N_Activat,x2,x2,x3,x1) 
  18. #define Baugamper(x1,x2,x3)    $$ = tree5(N_Conj,x2,x2,x1,x3) 
  19. #define Baugcat(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  20. #define Baugeq(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  21. #define Baugeqv(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  22. #define Baugge(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  23. #define Bauggt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  24. #define Bauglcat(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  25. #define Baugle(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  26. #define Bauglt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  27. #define Baugne(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  28. #define Baugneqv(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  29. #define Baugques(x1,x2,x3)    $$ = tree5(N_Scan,x2,x2,x1,x3) 
  30. #define Baugseq(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  31. #define Baugsge(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  32. #define Baugsgt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  33. #define Baugsle(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  34. #define Baugslt(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  35. #define Baugsne(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  36. #define Bcaret(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3) 
  37. #define Bcareta(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  38. #define Bcat(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3) 
  39. #define Bdiff(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3) 
  40. #define Bdiffa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  41. #define Beq(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  42. #define Beqv(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  43. #define Bge(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  44. #define Bgt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  45. #define Binter(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  46. #define Bintera(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  47. #define Blcat(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  48. #define Ble(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  49. #define Blim(x1,x2,x3)        $$ = tree4(N_Limit,x1,x1,x3) 
  50. #define Blt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  51. #define Bminus(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  52. #define Bminusa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  53. #define Bmod(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  54. #define Bmoda(x1,x2,x3)        $$ = tree5(N_Augop,x2,x2,x1,x3)
  55. #define Bne(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  56. #define Bneqv(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  57. #define Bplus(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  58. #define Bplusa(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  59. #define Bques(x1,x2,x3)        $$ = tree5(N_Scan,x2,x2,x1,x3) 
  60. #define Brace(x1,x2,x3)        $$ = x2
  61. #define Brack(x1,x2,x3)        $$ = tree3(N_List,x1,x2) 
  62. #define Brassgn(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  63. #define Break(x1,x2)        $$ = tree3(N_Break,x1,x2) 
  64. #define Brswap(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  65. #define Bseq(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  66. #define Bsge(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  67. #define Bsgt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  68. #define Bslash(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  69. #define Bslasha(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  70. #define Bsle(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  71. #define Bslt(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  72. #define Bsne(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  73. #define Bstar(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  74. #define Bstara(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  75. #define Bswap(x1,x2,x3)        $$ = tree5(N_Binop,x2,x2,x1,x3)
  76. #define Bunion(x1,x2,x3)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  77. #define Buniona(x1,x2,x3)    $$ = tree5(N_Augop,x2,x2,x1,x3)
  78. #define Call(x1,x2,x3,x4)    if (Val2(x1) = blocate(Str0(x1))) {\
  79.                                    Val4(x1) = fncargs[Val2(x1)-1]; \
  80.                    $$ = tree4(N_Call,x2,x1,x3);} \
  81.                 else { \
  82.                    Val0(x1) = putloc(Str0(x1),0); \
  83.                    $$ = tree4(N_Invok,x2,x1,x3); \
  84.                    }
  85. #define Case(x1,x2,x3,x4,x5,x6) $$ = tree4(N_Case,x1,x2,x5) 
  86. #define Caselist(x1,x2,x3)    $$ = tree4(N_Clist,x2,x1,x3) 
  87. #define Cclause0(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3) 
  88. #define Cclause1(x1,x2,x3)    $$ = tree4(N_Ccls,x2,x1,x3) 
  89. #define Cliter(x)        Val0(x) = putlit(Str0(x),F_CsetLit,(int)Val1(x))
  90. #define Colon(x)        $$ = x
  91. #define Compound(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3) 
  92. #define Create(x1,x2)        $$ = tree3(N_Create,x1,x2) 
  93. #define Every0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  94. #define Every1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  95. #define Exprlist(x1,x2,x3)    $$ = tree4(N_Elist,x2,x1,x3)
  96. #define Fail(x)            $$ = tree4(N_Ret,x,x,EmptyNode) 
  97. #define Field(x1,x2,x3)        $$ = tree4(N_Field,x2,x1,x3) 
  98. #define Global0(x)        idflag = F_Global
  99. #define Global1(x1,x2,x3)    /* empty */
  100. #define Globdcl(x)        /* empty */
  101. #define Ident(x)        install(Str0(x),idflag,0);\
  102.                 id_cnt = 1
  103. #define Idlist(x1,x2,x3)    install(Str0(x3),idflag,0);\
  104.                 ++id_cnt
  105. #define If0(x1,x2,x3,x4)    $$ = tree5(N_If,x1,x2,x4,EmptyNode) 
  106. #define If1(x1,x2,x3,x4,x5,x6)    $$ = tree5(N_If,x1,x2,x4,x6) 
  107. #define Iliter(x)        Val0(x) = putlit(Str0(x),F_IntLit,0)
  108. #define Initial1()        $$ = EmptyNode
  109. #define Initial2(x1,x2,x3)    $$ = x2
  110. #define Invoke(x1,x2,x3,x4)    $$ = tree4(N_Invok,x2,x1,x3) 
  111. #define Keyword(x1,x2)        if ((key_num = klookup(Str0(x2))) == 0)\
  112.                    tfatal("invalid keyword",Str0(x2));\
  113.                 $$ = int_leaf(N_Key,x1,key_num)
  114. #define Kfail(x1,x2)        $$ = int_leaf(N_Key,x1,K_FAIL) 
  115. #define Link(x1,x2)        /* empty */
  116. #define Linkdcl(x)        /* empty */
  117. #define Lnkfile1(x)        addlfile(Str0(x))
  118. #define Lnkfile2(x)        addlfile(Str0(x))
  119. #define Lnklist(x1,x2,x3)    /* empty */
  120. #define Local(x)        idflag = F_Dynamic
  121. #define Locals1()        /* empty */
  122. #define Locals2(x1,x2,x3,x4)    /* empty */
  123. #define Mcolon(x)        $$ = x
  124. #define Nexpr()            $$ = EmptyNode
  125. #define Next(x)            $$ = tree2(N_Next,x) 
  126. #define Paren(x1,x2,x3)        if ((x2)->n_type == N_Elist)\
  127.                     $$ = tree4(N_Invok,x1,EmptyNode,x2);\
  128.                  else\
  129.                     $$ = x2
  130. #define Pcolon(x)        $$ = x
  131. #define Pdco0(x1,x2,x3)        $$ = tree4(N_Invok,x2,x1,\
  132.                       tree3(N_List,x2,EmptyNode)) 
  133. #define Pdco1(x1,x2,x3,x4)    $$ = tree4(N_Invok,x2,x1,tree3(N_List,x2,x3)) 
  134. #define Pdcolist0(x)        $$ = tree3(N_Create,x,x) 
  135. #define Pdcolist1(x1,x2,x3)    $$ = tree4(N_Elist,x2,x1,tree3(N_Create,x2,x3))
  136. #define Proc1(x1,x2,x3,x4,x5,x6) $$ = tree6(N_Proc,x1,x1,x4,x5,x6)
  137. #define Procbody1()        $$ = EmptyNode
  138. #define Procbody2(x1,x2,x3)    $$ = tree4(N_Slist,x2,x1,x3) 
  139. #define Procdcl(x)        if (!nocode)\
  140.                    codegen(x);\
  141.                 nocode = 0;\
  142.                 loc_init()
  143. #define Prochead1(x)        idflag = F_Argument
  144. #define Prochead2(x1,x2,x3,x4,x5,x6)\
  145.                 $$ = x3;\
  146.                 install(Str0(x3),F_Proc|F_Global,id_cnt)
  147. #define Progend(x1,x2)        gout(globfile)
  148. #define Recdcl(x)        if (!nocode)\
  149.                    rout(globfile, Str0(x));\
  150.                 nocode = 0;\
  151.                 loc_init()
  152. #define Record1(x)        idflag = F_Argument
  153. #define Record2(x1,x2,x3,x4,x5,x6) install(Str0(x3),F_Record|F_Global,id_cnt); \
  154.                     $$ = x3
  155. #define Repeat(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  156. #define Return(x1,x2)        $$ = tree4(N_Ret,x1,x1,x2) 
  157. #define Rliter(x)        Val0(x) = putlit(Str0(x),F_RealLit,0)
  158. #define Section(x1,x2,x3,x4,x5,x6) $$ = tree6(N_Sect,x4,x4,x1,x3,x5) 
  159. #define Sliter(x)        Val0(x) = putlit(Str0(x),F_StrLit,(int)Val1(x))
  160. #define Static(x)        idflag = F_Static
  161. #define Subscript(x1,x2,x3,x4)    $$ = tree5(N_Binop,x2,x2,x1,x3)
  162. #define Suspend0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  163. #define Suspend1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  164. #define To0(x1,x2,x3)        $$ = tree4(N_To,x2,x1,x3) 
  165. #define To1(x1,x2,x3,x4,x5)    $$ = tree5(N_ToBy,x2,x1,x3,x5) 
  166. #define Uat(x1,x2)        $$ = tree5(N_Activat,x1,x1,x2,EmptyNode) 
  167. #define Ubackslash(x1,x2)    $$ = tree4(N_Unop,x1,x1,x2)
  168. #define Ubang(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  169. #define Ubar(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  170. #define Ucaret(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  171. #define Uconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  172. #define Udiff(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  173. #define Udot(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  174. #define Uequiv(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  175. #define Uinter(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  176. #define Ulconcat(x1,x2)        $$ = tree3(N_Bar,x2,x2) 
  177. #define Ulexeq(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  178. #define Ulexne(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  179. #define Uminus(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  180. #define Unot(x1,x2)        $$ = tree3(N_Not,x2,x2) 
  181. #define Unotequiv(x1,x2)    $$ = tree4(N_Unop,x1,x1,x2)
  182. #define Until0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode) 
  183. #define Until1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  184. #define Unumeq(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  185. #define Unumne(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  186. #define Uplus(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  187. #define Uqmark(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  188. #define Uslash(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  189. #define Ustar(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  190. #define Utilde(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  191. #define Uunion(x1,x2)        $$ = tree4(N_Unop,x1,x1,x2)
  192. #ifdef Xver
  193. xver(gdefs.1)
  194. #else
  195. #define Var(x)            Val0(x) = putloc(Str0(x),0)
  196. #endif                    /* Xver */
  197. #define While0(x1,x2)        $$ = tree5(N_Loop,x1,x1,x2,EmptyNode)
  198. #define While1(x1,x2,x3,x4)    $$ = tree5(N_Loop,x1,x1,x2,x4) 
  199.